DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 


**F ILE**1D**GOTO 


GGGGGGGG 000000 TITTTTTTIT 000000 
GGGGGGGG 000000 TTTTTTTITT 000000 

GG 00 00 TT 00 00 

GG 00 00 TT 00 00 

GG 00 00 TT 00 00 

GG 00 00 TT 00 00 

GG 00 00 TT 00 00 

GG 00 00 TT 00 00 

GG GGGGGG 00 00 TT 00 00 

GG GGGGGG 00 00 TT 00 00 

GG GG 00 00 TT 00 00 coe 

GG GG 00 TT 00 00 eee 
GGGGGG 000000 TT 000000 eee 
GGGGGG 000000 TT 000000 eee 

LL III] SSSSSSSS 

LL W111 SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] S$ 

LL I] SS 

LLLLLLLLLL HII] SSSSSSSS 

LLLLLLLLLL III! SSSSSSSS 
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GOTO LABEL 

FLUSH. CURRENT eg > a ANY CONT LRUAT IONS 
ALLOCATE A LABEL SYMBOL TABLE ENT 

DEALLOCATE GOTO CONTROL BLOCK 
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GoTo = GOTO COMMAND EXECUTION 15-SEP-1984 25:48:46 YAX/VMS Maceo VO4-00 p 
v04=000 area 8Re $8:2hi29 PONIES acre yoK~d a 
-TITLE GOTO = GOTO COMMAND EXECUTION 
"IDENT *V04-000" 


MPARAAAAAAAAAALALALALL LALA LES ELE REESE EERE TEER EEE EEE E EEE EERE EERE ERECT 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copsee 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Ti ee HE 


® * 
® * 
® ® 
e ® 
w ® 
® ® 
® * 
* INC F SOF TW ss 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
* TRANSFERRED. * 
*® ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:® ® 
bad ® 
*® ® 
® ® 
bai ® 
* ® 
*® of 
* ® 


NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SDOOOOCOOOOOOSOOOCOOOOSOOOOSooOO 
SOOQooooooooooooooooooooooo 


SOOOOCCOCOCOCoCOOoOSOOOOSCOOSOOOOOoOSoO 


COOQCCoCoooooooooooooooooocoo 


LARRAAARAAAARALALAR LALLA SELES ELAS EEE EERE EEE ERE R EEE EE EERE EERE EEE EERE ESET 


GOTO COMMAND EXECUTION 
D. N. CUTLER 6-MAY-77 


FUN 9 ODNAUE WIN SO ODA UNE WN OOO NAULS WI ODOONOULS WN 


ooooo 
ooooeo 
ooooo 
Cooooo 
PRPS SF FWWNWIWNINAIIWIWIPIRININIPININPININID 2 OOO ee 
wn 


0000 
44 MODIFIED BY: 
0000 v03-007 HWS0003 Harold Schultz 06-F EB-1984 
0000 Treat Lines that begin sitheut a ‘S$ and end with a 
4 ‘-" as a Line of data and not as a command continuation. 
0000 v03-006 PCG0006 Peter George 28-Nov-1983 
8508 Allow blanks to appear between Label and trailing colon. 
4 v03-005 PCG0005 Peter George 15-Jul-1983 
0000 Use multi-national upcase algorithm. 
0000 Support null nodes. 
6099 v03-004 PCG0004 Pete orge 23-Jun-1983 

it Clear DCL_L_SYMBOL r+ deallocating it. 
$008 48 v03-003 PCG0003 Peter George Fn foret ca 1983 

it $3 Do not return if success. Branch to DCLSRESTART 

$00 2 v03-002 PCG0002 Peter George 01-Apr-1983 

200 § Perform foward goto scanning here. 

0 4 v03-001 PCG0001 Peter George 24-F eb-1983 

Bn8 3 i Remove SETBIT WRK_V_NOSTAT. 
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= GOTO COMMAND EXECUTION 15-SEP- 
4-SEP- :40 DCL.SRCJGOTO.MAR; 1 
33 ; MACRO LIBRARY CALLS 
61 PRCDEF ZDEFINE PROCESS WORK AREA 
66 WRKDEF ;DEFINE COMMAND WORK AREA 
99 6 SYMDEF [DEFINE SYMBOL ENTRY OFFSETS 
64 SCLIMSGDEF [DEFINE ERROR/STATUS VALUES 
000 65 SDEVDEF [DEF INE DEVICE CHARACTERISTIC BITS 
000 66 SRABDEF [DEFINE RAB OFFSETS 
909 67 SSTSDEF ‘DEF INE MESSAGE BITS 
oon 3 $9 -PSECT DCLSZCODE,BYTE,RD,NOWRT 
SE 3D 3F 3E 5D 29 28 2D 3¢ 28 2F 3A 0000 71 TERM: ASCII \:/+,-())>2=*#ae'C<.; | \ 
09 21 20 38 2E 3C 5B 27 2a 40 33 900¢ 
0 001 7 .BYTE 0 
0018 $73 TERMEND: 


7 
10 = GOTO COMMAND EXECUTION 15*SEP=1984 23:49:46 VAX/VMS Macro V04-00 Page 
$0200 GOTO LABEL 4-5 Foi 9be $3: 28; ‘3 feu SRCJGOTO.MAR; 9 . dd) 
75 o .SBTTL GOTO LABEL 
r * DCLS$GOTO = GOTO LABEL 
1 i ; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE GOTO LABEL DCLS 
: ? 3 COMMAND. 
1 3 : R10 = BASE ADDRESS OF COMMAND WORK AREA. 
01 33 R11 = BASE ADDRESS OF PROCESS WORK AREA. 
a 5 : OUTPUTS: 
8 5 : THE SPECIFIED LABEL 1S SEARCHED FOR IN THE CURRENT LABEL TABLE, AND IF 
01 8 ; FOUND, A RANDOM FIND IS EXECUTED TO POSITION THE INPUT FILE FOR SUBSE- 
i 3 QUENT GET OPERATIONS. OTHERWISE A FORWARD GOTO SEARCH IS EXECUTED. 
1 91° 
01 3 DCL$GOTO:: :GOTO LABEL 
S18 (8a 
01 95 : DISABLE CTRL/Y AST'S. 
001 39 ‘ DISABLE * DISABLE CTRL/Y'S 
8E 7C 001 98 CLRQ -(SP)+ “REMOVE RETURN INFO FROM STACK 
00 6 99 SETBIT WRK_V_NOSTAT,WRK_W_FLAGS(R10) :DO NOT CHANGE $STATUS ON SUCCESS 
38 
00 198 : CHECK IF GOTO'S ARE ALLOWED. 
14 ABO 60 5 10° MOVL = PRC_L_INDINPRAB(R11),RO GET CURRENT INPUT RAB 
38 18 AO (1C. «CE? 00 9 19 BBC #DEUSO. RND ,RABSL war (RO),10$ SIF CLR, NOT RANDOM ACCESS DEVICE 
002E 107; 
08 : 108 : GET DESTINATION. CHECK IF IT'S ALREADY DEFINED. 
FFCF* 30 O02 110° BSBW DCLSGETDVAL :GET LABEL DESCRIPTOR. VALUES 
7E 51 7D 0031 111 mova [SAVE LABEL DESCRIPT 
50 30 AB 3 034 118 MOVAB Pre a QLABEL (R11), RO GET ADDRESS OF CABEL TABLE LISTHEAD 
FC5° 3 038 11 BSBW ss DCL SSEAR [SEARCH TABLE FOR LABEL 
51 ge D 038 114 mova = (SP) ate TRESTORE LABEL DESCRIPTOR 
8 E9 OO3E 115 BLBC Ro. 308" [IF LBC LABEL NOT FOUND 
boc) 119 
a 118 t LABEL DEFINED ~ POINT TO PROPER RECORD 
56 53 00 41 120° MOVL RB, Rb :COPY SYMBOL ADDRESS 
54 51S 7D C0044 ~—Ss121 MOVa = RY. :COPY LABEL DESCRIPTOR 
57° 16 AB 00 047 1 é 5$: MOVL Pate ‘ INDINPRAB (R11) R? [GET ADDRESS OF INDIRECT FILE RAB 
10 A? OF A644 O06 Y 3 MOV #6, SvA a SYMBOL ¢ +3(R65CR4),- ;RESTORE RECORD FILE ADDRESS 
1E A? 02 90 be 125 vB oe ABSE RTA, RABSB_ RAC(R7) ISET ACCESS MODE FOR RANDOM F 
056 «1 § SFIND RAB=( :FIND RECORD THAT HAS LABEL 
0E 50 €9 OOSF 1 LBC [SIGNAL ANY ERRORS 
1E A? 90 60 62.1 : MOVB sRABSC SE sea gRABSB_ RAC(R7) TRESET TO SEQUENTIAL ACCESS MODE 
FFO7" 31 0066 1 BRW SEMECUTE THE SPECIFIED COMMAND 
$ 130 108: STATUS NORMAL ‘SET NORMAL STATUS 
05 0070 131 20$: RSB RETURN 


TO = GOTO COMMAND EXECUTION 15-5 4 23:49: 46 VAX/ViS © v04-00 Page 
$0200 GOTO LABE 4-5 P=] 9be $3; :40: 23 YL SRCGO TO.MAR; 9 ° 
71 «1 
711 ¢ , ; 
4 : 2: 3 RETURN SYMOVF. 
nmi 6 52$: STATUS SYMOVE : 
05 28 1 RSB : 
oS 138 
ths 179 3 LABEL NOT DEFINED. SAVE IT IN THE SYMBOL TABLE. 
54 51 7D 0079 148 $0$:  MOVa  R1,R4 ZSAVE DESCRIPTOR OF LABEL 
51 91 g0 ore 14 ADDL #1,R1 [ADD IN LABEL_SIZE BYTE 
FF7E° 7F = 144 BSBW DCLSALLDYNMEM ‘ALLOCATE DYNAMIC MEMORY 
EC 50 €9 00 2 145 BLBC ‘BR IF FAILED 
60 AB DO 00 146 MOVL §R2.PRC_L_SYMBOL(R11) i SAVE TARGET FOR GOTO 
82 4 089 14 MOVB RG, (ROT4~ SET SIZE OF LABEL STRING 
62 6 4 28 OBC 148 MOVC =—R4, (RS), (R2) TFILL IN LABEL NAME 
0090 149 
9090 130 : 
9090 131 ; LOOK AHEAD FOR THE LABEL. 
68 AB 10 )=—AB-s«0090 138 * BISW #PRC_M_GOTO,PRC_W_FLAGS(R11) 7SET FORWARD GOTO IN PROGRESS 
68 AB 20) «AB «(0094 «29154 408: BISW  #PRC“M~IND,PRC_@_FLAGS(R11) ; GNORE @ SIGNS 
FF65" 30 0098 155 BSBY OCLSIN NEXT COMMAND 
68 AB 20 AA 0098 156 BICW #PR C_M_IND, PRC u FLAGS(R11) TRESTORE @ SIGNS 
25 68 AB O04 )~=CiE1 «CO09F:~=—s «157 BBC #PRC"V"~GOTO,PRO_@ FLAGS(R11),25$;BRANCH IF EOF 
53 F48E CA og 00AS 158 MOVL wee @ THARPTR(RTOS R3 ;POINT 0. FIRST CHARACTER 
53 07 OOA9 159 DECL R3 SBACK UP A CHA 
SOAR eh 
Boag 16¢ : 3; IGNORE LEADING BLANKS, LEADING ‘'$'', AND LINES THAT ARE ENTIRELY BLANK. 
50 04 OOAB 164 CLRL = RO ZASSUME NO ''$"’ 
33 6 OOAD 165 50S: INCL R3 GET ,NEXT CHAR 
63 95 OOAF 166 TSTB = (3) 
a 13 0081 167 BEQL 408 ope? THEN GET NEXT LINE 
63 20 91 0083 168 CMPB 3s #*X20,, (R3) 'SKIP LEADING BLANKS 
F513 9086 169 BEQL : 
63 09 91 0088 170 CMPB 3s #*X09,, (R3) ; 
FO 13 0088 171 BEQL 
63 34 91 00BD 17 CMPB 40s#*A/$/,, (R3) ‘SKIP LEADING ‘'$"’ 
F Ne o¢9 17 BNEQ ‘BRANCH IF NOT 
E750 0 § 0C2 17% BBCS #0,R0,50$ [SET FLAG, GET NEXT CHAR 
008 1 OCg 175 BRW 70$ [FLUSH IF PREVIOUSLY SET 
¢ 176 
0c9 17 
0c 178 EOF ENCOUNTERED. RETURN USGOTO. 
50 10038148 8F 00 oc9 9 bss: MOVL #CLI$_USGOTO!STS$M_INHIB_MSG,RO ;SET UNSATISFIED GOTO STATUS 
Op} 188 
oD | e + DETERMINE IF THERE IS A LABEL ON THIS LINE. 
52 53 go p11 6 S38: MOVL :SAVE START OF LABEL P 
FF26 CF 4618 «=©63)—SO3A «(00D4Si $:  Loce Fag) stERREND-TERN, TERM [FIND THE FIRST TERRINATOR 
1F 12 OODA 188 BNEG 585 [BRANCH IF FOUND 


i F 
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GOTO 278Eb= 138 $3283 DCL SACIEOTO. MARES . (3) 
61 8F 63 91 189 CMPB ss (R3) , #*A/a/ :CHECK LOW LIMIT OF LOW RANGE 
15 OF 190 BLSSU ‘57 ‘BR IF FAILED 
7A 8F 6 91 191 CMPB 0s (R'3) , #*A/2/ :CHECK HIGH LIMIT OF LOW RANGE 
g 1B 19¢ BLEQU 563 7BR IF VALID CHARACTER 
EO 8F : 91 19 CMPB  s-« (R3) , #*KEO SCHECK LOW LIMIT OF HIGH RANGE 
1F 194 BLSSU 573 ‘BR IF FAILED 
FE BF «63)—i«91 195 CMPB 0s (R3) , #*XFE ‘CHECK HIGH LIMIT OF HIGH RANGE 
1A 196 BGTRU 57$ ‘BR IF FAILED 
63 g BA 19 568: BICB #*X20,(R3) SUPCASE THE CHARACTER 
D6 198 57S: INCL R3 [GET NEXT CHAR 
09 «1 3 199 BRB 55$ [CHECK NEXT CHAR 
51 53 00 B a 58$ MOVL _R3,R1 :SAVE END OF LABEL PTR 
02. «11 OF 0¢ BRB 60$ ; 
536 19 04 59S: INCL RB :GET NEXT CHAR 
63 20 91 01 05 60$: CMPB #*x20,(R3) [SKIP BLANKS 
F9 «13 «010 06 BEQL 59$ ; 
63 09 91 0107 207 CMPB 3s #*X09,, (R3) : 
FL 13 O10A 208 BEQL : 
63 3A 91 010C 209 CMPB Os #*A/:/,(R3) ‘WAS IT A COLON? 
B 12 O10F 210 BNEQ 7 <NO, FLUSH THIS RECORD 
01 a3 3A 91 oii 11 CMPB oO #*A/:/,1(R3) :1S°1T A NULL NODE? 
5 13 0115 le BEQL SYES, FLUSH THIS RECORD 
01 a3 3D 91 «0117”—21 CMPB OO #*A/=/,1(R3) ‘IS IT AN ASSIG ? 
2 43613 «011B: Cs BEQL 708 ‘YES, FLUSH THIS RECORD 
ae aig 
B48 i 3; A LABEL HAS BEEN FOUND. INSERT IT IN THE LABEL TABLE. 
51 52 62 011D 219 SUBL _—-R2,R1 :GET LENGTH OF LABEL 
009¢ 6 30 0120 0 BSBW DCLSALLOC_LABEL TALLOCATE A LABEL SYMBOL FOR IT 
0A 50 «E88 (01 1 BLBS sé ‘BRANCH IF SUCCESS 
68 AB 10) «AA 0126 é BICW  #PRC_M_GOTO,PRC_W_FLAGS(R11) [CLEAR GOTO IN PROGRESS FLAGS 
00B4 30 or A 3 BSBW DCLSBEALGOTO [DEALLOCATE THE GOTO SYMBOL 
FF41 31 oi p 4 BRW 22$ ‘SIGNAL THE ERROR 
1 3 
1 5 $6 : DOES IT MATCH THE ONE WE WERE LOOKING FOR? IF SO, RESET RMS CONTEXT 
0 ’ : TO REREAD THIS RECORD. 
52 60 AB 00 oi 0 0 65$:  MOVL PRC L_SYMBOL (R11) ,R2 :GET TARGET OF GOTO 
51 82 9A 0134 1 MOVZBL (R23+7R1 [CREATE LABEL DESCRIPTOR 
51 54) «OD1sO0137 ; CMPL —s-R4, RI [DOES LENGTH MATCH? 
10 if 13A BNEQ ‘NO, FLUSH THIS RECORD 
62 65 54 29 013¢ 4 CMPC3) R4, (RS), (R2) [DOES THE STRING MATCH 
0A 12 149 5 BNEQ 70$ ‘NO, FLUSH THIS RECORD 
68 AB 10) «CAA (014 : BICW #PRC_M_GOTO,PRC_W_FLAGS(R11) [CLEAR GOTO IN PROGRESS FLAGS 
0098 30 146 BSBW DCLSBEALGOTO :DEALLOCATE THE GOTO SYMBOL 
FEFB 31 149 : BRW 5$ [POSITION FILE TO GOTO LABEL 
014C 240; 
16¢ 41 + FLUSH THE RECORD. 
10 014¢ 28 70$:  BSBB FLUSH sFLUSH THE RECORD 
03 68 AB 04 4 166 44 BBC #PRC_V_GOTO,PRC_W_FLAGS(R11),71$:BRANCH IF EOF 
FF3E 31015 45 BRW 40$ : 


:GET THE NEXT RECORD 


FF70 


» soto COMMAND EXECUTION 
GOTO LABEL 


31 0156 


246 718: 


258 
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v04=000 FLUSH CURRENT RECORD AND ANY CONTINUATIO \4-SEP=1984 3:40:47 EDCL+SRCIGOTO.MAR? 1 a 


133 48 .SBTTL FLUSH CURRENT RECORD AND ANY CONTINUATIONS 
139 20 FLUSH = FLUSH CURRENT RECORD AND ANY CONTINUATIONS 
139 3g 3 ? THIS ROUTINE IS CALLED TO FLUSH CURRENT RECORD AND ANY CONTINUATIONS. 
3 34 | : INPUTS: 
159 36 : R10 = ADDRESS OF WRK DATA STRUCTURE 
0139 2 : R11 = ADDRESS OF PRC DATA STRUCTURE 
159 259 3 OUTPUTS: 
8139 $60 : 
0159 261: RO = STATUS 
0159 6¢ - 
0159 26 
0159 264 FLUSH: ZFLUSH THE INPUT 
7E D4 0159 265 CLRL = = (SP) : SUSE STACK AS TEMP, FLAG 
24 F48E DA 91 0158 266 CMPB © @WRK_L_CHARPTR(R10) ,#*A/$/ 1S FIRST CHA igs 
02 12 0160 267 BNEQ 2$ 'NO, TREAT CINE A S DA ATA 
6E 06 0162 368 INCL (SP) [YES, TREAT AS A COMMAND LINE 
0164 270 : POINT TO FIRST CHARACTER IN RECORD AND INIT QUOTE FLAG. 
51 F48E CA DO 0164 Le 5s: MOVL WRK_L_CHARPTR(R10) ,R1 ;POINT ”, go) CHARACTER 
51 07 0169 27 DECL = RI ‘BACK UP A CHA 
52 51 DO 0168 74 MOVL R1,R2 3; SAVE Dr oeRF COU CHAR PTR 
53 D4 «(O16E = 275 CLRL sR SINIT QUOTE FLAG 
ee 
o170 28 : SEARCH FOR EOL OR TRAILING COMMENT. 
51 D6 0170 380 fos: INCL R1 :GET NEXT CHAR 
61 95 0172 381 TSTB ss (R11) EOL? 
13. 13 0174 282 BEQL 40$ [YES, THEN CHECK FOR ‘'="* 
61 22 91 0176 283 CMPB ss #*A/"'/, (R1) S QUOTE? 
04 12 0179 284 BNEQ 208 ?BRANC 
53 D6 «(0178 385 INCL R3 : TOGGLE THE FLAG 
Fi 11 0170 286 BRB 10$ iGET NEXT CHA 
EE 53 EB O17F 287 20$: BLBS  R3,10$ :BRANCH IF i QUOTES 
61 21 91 0182 88 CMPB Os #*A/!/,(R1) > COMMENT? ash 
0¢ 13 O18 89 BEQL 40% [YES, THEN CHECK FOR 
E7 11 0187 290 BRB 10$ :GET NEXT CHAR 
0189 91 
189 98 
0189 93 i BACK UP OVER TRAILING BLANKS. 
51 p7 0189 595 40S: vecL— rt :BACK UP A CHA 
52 51 01 0188 36 CMPL = R1,,R2 [CHECK FOR CHART OF LINE 
24 13 18 9 BEaL 4=s-«900$ :1F FOUND, THEN DONE 
61 20 91 01 98 CMPB 0s #*20, (R1) SPACE? 
F413 «019 99 BEQL 408 :YES, THEN BACK UP AGAIN 
61 09 91 0195 00 CMPB ss #* X09, (R1) TAB? 
EF 13 198 or BEQL 40% ?YES, THEN BACK UP AGAIN 
O19A 88 : 
019A 304 : CHECK FOR CONTINUATION CHARACTER. 
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CURRENT RECORD AND ANY CONTINUATIO 4-SEP=1984 23:40: i$ YOCL. SRCJGOTO.MAR; 1 
19A 5: 
1 019A 6 CMPB#*A/=/,(R1) ; CONTINUATION? 
19D BNEQ ‘NO, THEN DONE 
19F 08 BISW  #PRC_M_IND,PRC_W_FLAGS(R11) SIGNORE @ 
1A3—-30 BLBC =—_« (SP?) ht SIF DATA HEN DONE 
0 ag 10 BSBW DCL SINP GET CONT INJAT ON LINE 
AA O1A 11 BICW #PRC_M POND PRC_W_FLAGS(R11) SRESTORE @ SIGN § 
E1 O1AD 18 BBC #PRC-V"GOTO,PRC_@_FLAGS(R11),90$:BRANCH IF EOF 
11 0:Be 13 BRB 2$ ‘FLUSH IT TOO 
CO 0184 315 90$: ADDL 4#4,SP ;REMOVE TEMP. FLAG FROM STACK 
0187 316 STATUS NORMAL 'SET NORMAL STATUS 
05 O01BE 317 RSB RETURN 
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1BF 


pole loleleloleloleleleleoleleleleleleloloioal~j—T~) 

— a) a Sd —) Ss = * as Ss OS Ss Ss SS SS Bt Ss 
MOVOCVVMOCCOCWWWWVWWVWWVIVIVOWVWVWVVOWVOOOVOWOODW 
CO PN SOCOM TTT TTT 


cL arta ere 


DB BBB EEE EE EWI II pnnononononononuon— 
SOON UE WN OS OONAUES WA "OO ONAOUS Wit" Ow 
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DCL.SRCJGOTO.MAR; 1 (5) 
~SBTTL ALLOCATE A LABEL SYMBOL TABLE ENTRY 


; DCLSALLOC_LABEL = ALLOCATE A LABEL SYMBOL TABLE ENTRY 


; THIS ROUTINE IS CALLED TO ALLOCATE A LABEL SYMBOL TABLE ENTRY. 


INPUTS: 

Rit = ADDRESS OF PRC DATA STRUCTURE 
; OUTPUTS: 

RO = STATUS 


R4/R5 = LABEL DESCRIPTOR 
R6 = SYMBOL ADDRESS 


 CTRL/Y'S ARE ASSUMED TO HAVE BEEN DISABLED. 


R1,- TSAVE RI/R2 

MOVAB PRE r SP ABEL (R11) URS SET ADDRESS OF TABLE LIST HEAD 
mMOVa sR ‘SET LABEL NAME 
MOVL eT INDINPRAB(R11),RO ‘GET RAB ADDRES 

OVAB RABSH RFACRO),R2 . ;SET ADDRESS OF RFA 
MOVZBL #6, «ESET LENGTH OF RFA 
MOVL  #SYM_K_LABEL,RO :SET SYMBOL TYPE 
BSBW DCLSALCOCSYM [CREATE THE LABEL ENTRY 
MOVL GET SYMBOL ADDRESS 


R 
MOVa SP) e ORG SRESTORE R1/R2 
RSB : 


| 
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-SBTTL DEALLOCATE GOTO CONTROL BLOCK 
; DCLSDEALGOTO = DEALLOCATE GOTO CONTROL BLOCK 
: THIS ROUTINE IS CALLED TO DEALLOCATE AN OUTSTANDING GOTO CONTROL 


BLOCK WHEN IT IS SATISFIED OR AN END OF FILE IS REACHED WITHOUT 
FINDING THE LABEL. 


om 
ox 
om 
zo 
=—cC 
za-— 
~o 
oo 


Dee Ge Oe Ge Oe Se Ge te 


CLSDEALGOTO:: 3 
MOVL PRC_L_SYMBOL (R11) ,RO ; ADDRESS OF GOTO CONTROL BLOCK 
MOVZBL (ROJ,R1 : GET LENGTH AND POINT AT START OF BLOCK 
INCL R1 ; INCLUDE LABEL wnt BYTE 
BSBW DCLSDEADYNMEM ; DEALLOCATE TH 
CLRL PRC_L_SYMBOL (R11) ; CLEAR ADDRESS OF teOTO CONTROL BLOCK 


OWONAULS WN" OOOneouvlurm Oo 


GOTO 
Symbol table 


CLI$_USGOTO 
DCLSALLDYNMEM 
DCLSALLOCSYM 
DCLSALLOC LABEL 
ADYAMEM 


DCLSGETDVAL 
DCL$GOTO 
DCLSINPUT 
DCLSRESTART 
DCLSSEARCHT 
DEVSV_RND 


PRC~L~IDFLNK 
PRC-L-IMGACTSTS 
PRC~L~INDCLOCK 
PRC-L—~ INDEPTH 
PRC-L—INDFAB 
PRC~L-INDINPRAB 
PRC~L~ INDOUTRAB 
PRC-L_INPRAB 
PRC“L-LASTKE 


RC“L- Y 
PRC“L-LSTSTATUS 
PRC LY 


PRC“L-PPFLIST 
PRC“L-RECALLPTR 
PRC“L-RESTART 
PRC"L~SAVAP 


a 


0000018F 


erereere 
000001E1 
eterenee 
etereere 
00000018 
eeereere 
eeereere 
eeereeee 


0000001C 
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SWHROWN LSODWOOMWBDLOMOOMOM 
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GOTO 
Symbol table 


WRK_B_MINPARM FFFFFFD1 
WRK-B_PARMCNT FFFFFFCE 
WRK" B-PARMSUM FFFFFFCE 
WRK_B_RECALLCNT FFFFFFCS 
WRK_B_VALLEV FFFFFFCS 
WRK_B_VERBTYP FFFFFFC2 
WRK_C_LENGTH FFFFFS 
WRK_G_ BUFF FFFFFS 
_G_ INPBUF FFFFF89 
WRK_G_RESULT FFFFF9B6 
_K LENGT FFFF F486 
WRK_L_CHARPTR FFFFF48E 
WRK_L_DISALLOW FFFFFFE6 
RK_L_ERRORRTN FFFFFOAE 
WRK_L_EXPANDPTR ecetees 
“L_IMA GE Aaa ad 3 
WRK-L-MARKPTR FFFFFGBA 
WRK_L_PAROUT ert ens 
WRK_L_PMPTADDR FFFFF9A 
WRK_L_PROMPTRIN FFFFF9OA6 
WRK_L_PROPTR FFFFFFC6 
WRK~L~QUABLK FFFFFECA 
WRK-L-READRTN FEFFFOAA 
WRK_L_RECALLPTR FFFFFFEA 
WRK_L_RSLEND FFFFFFB6 
WRK _L_RSLNXT FFFFFFBA 
WRK-L-SAVAP FFFFFFFS 
WRK_L_SAVFP FFFFFFFC 
WRK_L_SAVSP FEFFFFFS 
WRK_L_SIGNALRTN FFFFFFD6 
WRK_L_SPECRIN FFFFF9B2 
WRK_L_TAB_VEC FFFFFFDE 
WRK-L-VERB FFFFFFB 
WRK_V_NOSTAT = 0000000 
WRK_W_FLAGS FFFFFFF 
WRK_W_FLAGS2 FFFFFFF2 
WRK_W_IMGCHAN FFFFFFEE 
WRK-W~PMPTLEN FFFFF9SE 
_$$_ = QOOO0O0EF 
PSECT nome Allocation 
, M6 00000000 


FFFFFFFC 


SABS$ 
OCL$ZCODE 000001F 1 
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GOTO - GOTO COMMAND EXECUTION 15-SEP=1 249:4 AX/VMS Macro v04-00 
VAK=11 Macro Run Statistics 4-SEP=1 1382 33; 240: S DCL. SRCJGOTO.MAR; 4 
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! Performance indicators ! 


Feces cow ommewrnoanroanaeane + 


Phase Page faults CPU Time Elapsed Time 
Initialization 10 :00:00.07 :00.81 
zonnene processing 2%} :00: 3 : 93 
bite table sort a :00: e: 02.4 
Symbol table output 18 :00:00.1 :00: “4 
poect eynessts a 1 3: : 08 :00: 8 
ross-reference ou ‘ :00:00. 
Assembler run totais. 40s 1. 8:98 :99-8 


39838° rking s set Limit was 1200 pages. 
7 35 oytes é pages) of virtual memory were used to buffer the intermediate cod 
here were 40 pages of symbol table space allocated to hold 661 non-local and 23 locat symbols. 
469 source Lines were read in Pass 1, producing 14 object records in Pass 2. 
pages of virtual memory were used to define 22 macros. 


Fewer er ee meme me mee wen cnm eee cee + 


! Macro Library statistics : 


Macro sosneceet name Macros defined 
EDU 0843 nett MLB; 1 0 
:CDCL. =e MLB; 8 
$25580uk :(SYS.08 MLB; 1 0 
ae Hire MLB; 2 8 
Terie dott’ Libraries) 16 


839 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
MACRO/L1S=L1S$:GOTO/OBJ=0BJ$:GOTO MSRC$:GOTO/UPDATE=(ENH$: GOTO) +EXECML$/LIB+LIB$:DCL/LIB+SYS$LIBRARY : SYSBLDMLB/LIB 
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